home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po
/
COOL.OFF.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
700b
|
2 lines
10 HOME : VTAB 4: PRINT SPC( 3)"O": PRINT SPC( 2)"/|\": PRINT "___M": FOR V = 7 TO 16: PRINT "|": NEXT : FOR K = 2 TO 39: VTAB 16: HTAB K: PRINT ".";: NEXT : POKE 35,5: HOME : TEXT : VTAB 6: HTAB 4: PRINT SPC( 1): POKE 32,5: POKE 33,3: FOR K = 3 TO 14: VTAB K: HTAB 1: PRINT "\O/ | M": VTAB K -1: HTAB 1: PRINT SPC( 3): SPEED= 230: NEXT : POKE 32,2
20 POKE 33,10: VTAB 14: PRINT "." SPC( 8)"." SPC( 2)"." SPC( 3)".": VTAB 16: HTAB 4: PRINT "\O/": VTAB 16: HTAB 4: PRINT SPC( 3): VTAB 14: HTAB 1: PRINT SPC( 18): VTAB 16: HTAB 4: PRINT "...": VTAB 20: FOR K = 1 TO 900: NEXT : SPEED= 100: TEXT : FOR K = 8 TO 37: VTAB 16: HTAB K: PRINT ".\O/": VTAB 16: HTAB K: PRINT "..O.": NEXT : SPEED= 255